home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / csr20a.arc / TM.C < prev    next >
Text File  |  1986-12-13  |  896b  |  48 lines
  1. #include <color.h>
  2.  
  3. main()
  4.  {
  5.   int c = 0;
  6.   int w;
  7.   int w2;
  8.   save_cursor();
  9.   color(WHT_F+BLU_B);
  10.   w = wopen(2,3,10,10,1);
  11.   color(BLU_F+WHT_B);
  12.   w2 = wopen(7,7,20,30,3);
  13.   for ( c = 0; c < 5; ++c )
  14.    {
  15.     wactivate(w);
  16.     delay(25);
  17.     wactivate(w2);
  18.     delay(25);
  19.    }
  20.   for ( c = 0; c < 50; ++c )
  21.       wprintf(w2,"wprintf() - %02d\n",c);
  22.   wprintf(w2,"wprintf() - %02d",c);
  23.   getch();
  24.   wblank(w2,3);
  25.   getch();
  26.   wprint(w2,"\f  Header, Static.\n");
  27.   whline(w2,1);
  28.   wputat(w2,wrow(w2)-1,0,"  Footer, Static.");
  29.   whline(w2,wrow(w2)-2);
  30.   wfreeze(w2,2,wrow(w2)-3);
  31.   wgotoxy(w2,2,0);
  32.   getch();
  33.   for ( c = 0; c < 50; ++c )
  34.       wprintf(w2,"wprintf() - %02d\n",c);
  35.   wprintf(w2,"wprintf() - %02d",c);
  36.   getch();
  37.   wcloseall();
  38.   restore_cursor();
  39.  }
  40.  
  41. delay(x)
  42.  int x;
  43.  {
  44.   int i = 0;
  45.   while ( i < x )
  46.         ++x;
  47.  }
  48.